perm filename HSTAT.SAI[KID,KMC] blob sn#122892 filedate 1974-11-15 generic text, type T, neo UTF8
BEGIN "DUMPEM"
	INTEGER ARRAY DRCTRY[0:127];
	INTEGER DENT,D,FLAG;
	INTEGER DATE,OLDDATE;
	INTEGER NOSESS,DATEMASK,NOBLKS;
	STRING FILNAM;
	LABEL GETNAM;
	DEFINE CRLF="13&10";
	DEFINE HSTCHN="11";
	DEFINE FORMDATE="
	START_CODE
	MOVE  '15,DENT;
	AND  '15,DATEMASK;
	MOVEM  '15,DATE;
	END";
	DATE←OLDDATE←0;
	NOSESS←0;
	DATEMASK←'007777777777;
GETNAM:	OUTSTR(CRLF & "TYPE THE CHILD'S NAME, THEN CARRIAGE RETURN: ");
	FILNAM←INCHWL;
	OPEN(HSTCHN,"DSK",15,0,0,0,0,0);
	LOOKUP(HSTCHN,FILNAM&".HST[1,KMC]",FLAG);
	IF FLAG THEN BEGIN
		OUTSTR("FILE "&FILNAM&".HST [1,KMC] NOT FOUND");
		RELEASE(HSTCHN);
		GOTO GETNAM;
		END;
	ARRYIN(HSTCHN,DRCTRY[0],128);
	NOBLKS←DRCTRY[0] MOD '1000000;
	FOR D←1 STEP 1 UNTIL NOBLKS DO BEGIN
		DENT←DRCTRY[D];
		FORMDATE;
		IF DATE≠OLDDATE THEN NOSESS←NOSESS+1;
		OLDDATE←DATE;
		END;
	RELEASE(HSTCHN);
	OUTSTR(CRLF&CVS(NOSESS)&" SESSIONS RECORDED."
	 &CRLF&CVS(D)&" BLOCKS USED."
	 &CRLF&CVS(128 - D)&" BLOCKS REMAINING."&CRLF);
	END "DUMPEM";